subroutine print_start_msg(lunit,cunit,t_array0,nt,myrank)
  use param
  implicit none

  integer,intent(in) :: lunit,cunit,nt,myrank
  integer,intent(in) :: t_array0(8)

  character(len=8) :: d_time_str

  call print_d_time(t_array0,d_time_str)

  if (myrank.eq.0) &
       write(*,'(a8,":MAIN LOOP START")') d_time_str(1:8)
  write(lunit,'(a8,":MAIN LOOP START")') d_time_str(1:8)

  if (myrank.eq.0) call terminal_msg1("")
  if (myrank.eq.0) print '("NO. OF TEMP_PROFILE=",i2.2)',nt
  call log_msg1(lunit,"")
  write(lunit,'("NO. OF TEMP_PROFILE=",i2.2)') nt

  return

end subroutine print_start_msg
